home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9102a.d64 / fakult disk->prt (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  401b  |  18 lines
  1. 10 REM ********************************
  2. 20 REM *                              *
  3. 30 REM *    AUSGABE DER FAKULTAETEN   *
  4. 40 REM *   VON DISKETTE AUF DRUCKER   *
  5. 50 REM *    (W) BY BORIS BRANDHERM    *
  6. 60 REM *                              *
  7. 70 REM ********************************
  8. 80 NAME$="FK"
  9. 90 OPEN 1,8,2,NAME$+",S,R"
  10. 100 OPEN 2,4
  11. 110 GET #1,A$
  12. 120 C=ST
  13. 130 PRINT#2,A$;
  14. 140 IF C=0 THEN 110
  15. 150 CLOSE 1
  16. 160 PRINT#2,""
  17. 170 CLOSE 2
  18.